home *** CD-ROM | disk | FTP | other *** search
- GetRect(VAR x1, y1, x2, y2 : REAL);
-
- Allows the user to create a rectangle using the mouse.
-
- GetLine(VAR x1, y1, x2, y2 : REAL);
-
- Allows the user to create a line using the mouse.
-
- GetPt(VAR x, y : REAL);
-
- Returns x, y coordinates by using the mouse. x, y are not returned until the mouse is clicked.
-
- GetPtL(x1, y1 : REAL; VAR x2, y2 : REAL);
-
- Draws a line from a fixed point specified by x1, y1 to a mouse defined point. x2, y2 are not returned until the mouse is clicked
-
- GetKeyDown(VAR aCode : INTEGER);
-
- Pauses until the user presses a keyboard key.
-
-